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Welcome to the fifth issue of ZX 
User. This is your bonus extra for all 
Spectrum owner — an additional 
16-page supplement devoted 
entirely to the Spectrum. 

We're interested in your points 
of view. Send your comments and 
observations to us and don't 
forget your listings and tips. 

This week you'll find a game 


featuring a miserly vicar whose lust 
for gold takes him in search of gold 
bars. 

There's also a space game in 
which you face force fields, 
asteroids and aliens and a listing for 
both ZX81 and Spectrum to help you 
get your maths in shape. 

We hope you enjoy 
issue. Happy reading! 


week's 


You can get into print 


used and hints on conversion. 


All submissions will be 


WE WELCOME programs and 
articles from our readers. If you 
feel that your work meets our 
standards, please submit it to 


us for consideration for 
publication. 
Programs must always be 


sent on cassette. Listings are 
helpful, but not necessary. 
Check ‘carefully that they are 
bug-free. Include full details of 
what your program does, how 
it works, variables you have 


See the programs in this issue 
for guidance on what your 
paperwork should include. 


Articles on using the 
‘Spectrum and the ZXB1 should 
be no longer than 2,000 words. 
Those most likely to be 
published will help our readers, 
make better use of their 
computers by giving useful 
advice, possibly with 
programming examples, tables 
and so on. Short hints are also 
welcome. 


acknowledged and the copy- 
right in such works which will 
pass to Argus Specialist 
Publications Ltd will be paid 
for at competitive rates. 

Keep a copy of your work 
and include and SAE. Label 
everything clearly and give a 
daytime and home phone 
number if you can. All work for 
consideration should be sent 
to: 

Paul Liptrot, ZX User, No. 1 
Golden Square, London W1R 
3AB 
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SPECTRUM PROGRAM: 


Here's a novel game for you, In 
this game you are George the 
vicar. Your mission is to collect 
five gold bars (the love of 
money is the root of all evil, 
George, so beware!) from any 
‘one of 30 rooms. 

Your behaviour is obviously 
not being condoned by the 
Almighty, as you have 10 
different hostile beings to cope 
with. Each appears. three 
times, so you should really 
learn your lesson and go back 
to tending your flock. 

If the aliens trap you three 
times, the game is over and a 
rendition of Chitty Chitty Bang 
Bang (how appropriate?) is 
played while you decide 
whether you want to take up 
the challenge again. 

If you complete your task, 
@ congratulatory message 
appears on screen accompan- 
ied by machine code so 


5 You will also hear machine 


‘Za 


code sound when you pass 
away and move on to pastures 


J new, and when you find an 


in the program is 

{not used to its full extent and 
some great sound effects can 
be found by POKEing the two 
values shown in the program. 

This game runs on both the 
16 and 48K Spectrum. To help 
you find your way through the 
listing there are numerous 
REM statements describing 
the function of each routine. 
The listing will only run on the 
16K Spectrum if all REM lines 
are omitted. 

On screen you will see the 
outline of a room with doors, 
which are the exits. You will 
also see a randomly moving 
alien, your character and 
possibly a gold bar. Pick up 
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‘the gold bars by walking into 
them. 


These are your controls: Q. 
up, A down, O left, P right. 

Well, Vicar, you're straying 
from the straight and narrow, 
and you know it will only lead 
to destruction — but good 
luck, anyway! 


Variables 

at) data for exits from each 

oom 
room which room you are in data, restore line data 

(1 to 30) ‘9200-9290 nitialise, call other 
w) tell computer which rooms routines, set locations of 

should have a gold bar in bars 

them 9300-9340 updata lives 
ey /oo-ondnwion of character How it works 9400-9450 routine after dying 

co-ordinates of enemy 20-590 movement of man and 8000-8225 data for various 9500-9540 machine code sound 

11) number of data line foreach “alien routines aliens routine 

alien 600-620 sounds at death 9000-9050 define UDGs 9600-9640 routine when game 
ai), cl) musical notes 700-730 when a bar has been 9100-9190 maze data, tune is complete 


@>REM Program by Sanders and Charnock1984 
2 REM lines 20 to 390 are character movement routines 
5 GO SUB 9200 
15 PRINT INK ink;AT a,b;"7!'" 
20 PRINT INK 7; BRIGHT 1;AT x,y3""" 
25 LET 2$=INKEYS 
28 IF THEN GO TO 500 
30 IF THEN GO TO 200 
40 IF THEN GO TO 250 
SQ IF THEN GO TO 300 
60 IF THEN GO TO 350 
70 GO TO 20 
200 IF ATTR (x,y-1)=7 AND ATTR (x+1,y-1)=7 THEN LET y=y-i:°GO SUB 402: GO TO 5 
20 
21@ IF y=3 THEN LET x=1@: LET y=28: LET room=room~ 
LET k=1: GO TO SOO 
212 IF ATTR (x,y-1)=ink OR ATTR (x+1,y-1)=ink THEN GO SUB 6@@: CLS : GO TO 93 
Cr) 
215 IF ATTR (x,y-1)=6 OR ATTR (x+1,y—1)=6 THEN LET obj=obj+i: GO SUB 700; LET 
y=y-1: GO SUB 400: GO TO S00 
230 GO TO 500 
250 IF ATTR (x+2,y)=7 THEN LET x=x+i: GO SUB 420: GO TO 500 
260 IF x=18 THEN LET x=2: LET : LET room=room+é: BEEP .@1, 
LET k=1: GO TO 500 
262 IF ATTR (x+2,y)=ink THEN GO SUB 60@: CLS : GO TO 9300 
265 IF ATTR (x+2,y)=6 THEN LET obj=obj+1: GO SUB 70@: LET x=x+1: GO SUB 420: 6 
0 TO 500 
288 GO TO 50a 
3@0 IF ATTR (x-1,y)=7 THEN LET x=x-1: GO SUB 440: GO TO 500 
310 IF x=2 THEN LET x=18: LET y=15: LET room=room-6: BEEP .@1,0: GO SUB 1000: 
: GO TO 500 
312 IF ATTR (x-1,y' 
31S IF ATTR (x-1,y 
o TO seo 
349 GO TO 5a 
35@ IF ATTR (x,y+1)=7 AND ATTR (x+1,y+i)=7 THEN LET y=y+1: GO SUB 468: GO TO 5 


AT xti,ys"o" 


: BEEP .01, 


GO SUB 1000: 


SUB 1000: 


nk THEN GO SUS 42% 
THEN LET obj=objt+i: LET 


cLS : 60 TO 9500 


-1: GO SUB 702: GO SUB 440: G 


360 IF y=28 THEN LET x=18: LET y=3: LET room=room+i: BEEP .01,0: GO SUB 1000: 
LET k=1: GO TO 50a 

362 IF ATTR (x,y+i)=ink OR ATTR (x+i,y+i)=ink THEN GO SUB 6@0: CLS : GO TO 750 
a 

365 IF ATTR (x,y+i)=6 OR ATTR (x+1,y+1)=6 THEN LET obj=obj+1: LET y=y+i: GO SU 
B 700: GO SUB 468: GO TO S00 
398 GO TO 520 

400 REM delete man routines 
4@5 PRINT INK 7; BRIGHT 1;AT x 
e 

GHT 1;AT x+1,y3" 
410 RETURN 


BRIGHT @;AT x,y+is" “; INK 7: BR 


INK 7; BRIGHT @;AT x+1,y+1;" ": GO TO 500 


| 428 PRINT INK 7; BRIGHT INK 7; BRIGHT 1;AT x, "SAT x+1,93 
| ": BRIGHT ® 
430 RETURN 
440 PRINT INK 7; BRIGHT @;AT x+2.y:" INK 7; BRIGHT 1;AT x+1,y3"0/"3AT x,y3" 
: BRIGHT @ 
450 RETURN 
469 PRINT INK 7; BRIGHT @;AT x,y-15" INK 7; BRIGHT 1;AT x, INK 7; BR 


GHT O;AT x+1,y-1;" 7; BRIGHT 1;AT x+1,y3 BRIGHT @ 
470 RETURN 
5@@ REM alien movement 
55 LET tis=ti+1 
518 FOR To 2 
520 LET v=INT (RND*4) +1 
522 IF v=1 AND ATTR (a-1,b)=7 AND ATTR (a-1,b+1)=7 THEN LET a=a-1: PRINT INK 
73AT ati,bs;" "3 INK inksAT a,b3"TU": NEXT 
525 IF v=1 AND ATTR (a-1,b)=71 OR ATTR (a-1,b+1)=71 THEN GO SUB 4@0: CLS 
To 9300 ~ 
S33 IF v=2 AND ATTR (ati,b)=7 AND ATTR (ati,b+1)=7 THEN LET a=atiz PRINT INK 
73AT a-1,b3"_ "3 INK inksAT a,b; "TU": NEXT r 
| 535_IF v=2 AND ATTR (ati,b)=71 OR ATTR (at1,b+1)=71 THEN GO SUB 600: CLS 
TO 9300 
544 IF v=3 AND ATTR (a,b+2)=7 THEN LET b=b+i: PRINT INK 7;AT a,b-1;" "3 
inksAT a,bs"TU"s NEXT r 
545 IF v=3 AND ATTR (a,b+2)=71 THEN GO SUB 602: CLS : GO TO 9300 
552 IF v=4 AND ATTR (a,b-1)=7 THEN LET b=b-1: PRINT INK 7;AT a,b+i:" "3 INK 
inksAT aybs"Cl": NEXT 
SSS IF v=4 AND ATTR (a,b-1)=71 THEN GO SUB 6@@: CLS : GO TO 9300 
570 NEXT r 
580 IF k=1 THEN LET k=@: GO TO 20 
590 GO TO 25 
60% REM death sound 
61@ POKE 42501,1: POKE 42504,25: FOR t=1 TO 6: RANDOMIZE USR 42500: NEXT t 
620 RETURN 
700 REM check - 
710 FOR e=1 TO S: IF v(e)=roam THEN LET vie)=0 
720 NEXT © 
725 POKE 42501,50: POKE 42504,125: POKE 42507,4@: RANDOMIZE USR 42500 
727 IF obji=S THEN GO TO 9620 
730 RETURN 
1002 REM draw room 
$0@5 BORDER @: PAPER @: INK 7: CLS 
1096 
1019 DRAW @,-162: DRAW 226,@: DRAW @,162: DRAW -226,2 
1920 DRAW 26,-26: DRAW @,-111: DRAW 174,@: DRAW @,111: DRAW -174,0 
1930 PLOT 41,33: DRAW -26,-26 
1040 DRAW 24,-26 
1250 PLOT 215,143: DRAW 24,26 
1060 INK 7 
FOR s=1 TO 4 
tF a$(room,s)="1" THEN PRINT INK 4; PAPER @;AT 1,14;"F=5F";AT 2,14; " 


3AT 3,14; 3AT 3,173"0": PLOT OVER 1;120,43: DRAW OVER 1:15,0 
1100 IF a#(room,s)="2" THEN PRINT INK 4; PAPER @;AT 9,27;""hF";AT 10,293 
aT 
] 11,295 "G"saT 12,27:"000": PLOT OVER 1:215,95: DRAW OVER 1;0,-15 
1110 IF a$(room,s)="3" THEN PRINT INK PAPER @:AT 18,14; "5"3AT 18,17; "6 


AP L4g "SAT 19,172" "SAT 2B,143"HObe": PLOT OVER 1:135,32: DRAW OVER 1:-15, 
IF at(room,s)= THEN PRINT INK 4; PAPER @:AT 9,2; S"ZAT 18,2; "6" SAT 


2" 5AT 12,23 "46 PLOT OVER 1:41,80: DRAW OVER 1:0,15 
NEXT s - 
RESTORE r (room) 
FOR e=USR "t" TO USR “u"+7: READ a: POKE e,a: NEXT © 
LET ink=INT (RND#5)+1 
IF ink=4 THEN GO TO 1160 
FOR e=i TO 5S: IF v(e?=room THEN PRINT INK 6;AT 14,142" 
LET a=1@: LET b=20 
NEXT e 

120° RETURN 


ABW DATA O,@,0,14,635,115,192,128,8,8,0,6,141,255,246,8 
B25 DATA 112,137,139,79,47.31, 15,7, 5,135,258, 252,252,248, 248,224 
B50 DATA 15,16,29,67,72, 39, 16,15, 240,8,116,58,2,196,8,240 
8@75 DATA @,127,128,190, 189, 65,635,351, @,1, 130,132.26, 255,254,252 
8199 DATA 3,715,15,15,15,7,3, 192,224, 248,240, 248, 248,224,192 
A125 DATA 11,12,4,7,187,217,128,8,216,48.32.224,214,155,1,0 
B154 DATA 7,7,247, 183,247 , 225,247 ,82, 255,255,255, 255,255,255,255,134 
8175 DATA 15,0. 255,0,255,9,255,255,@,255,8,255,0,255,9 
8200 DATA $5, 15,@,0,8,0,1,227,255,227,1,8 
8225 DATA 
| 9080 REM define graphics 
9010 RESTORE 9020: FOR g=USR “a” TO USR +7: READ a: POKE g,a: NEXT g | 
9020 DATA 47,33,61,35,47,53,61,32,0,0,255,68, 85,85, 17,255,132, 188,152,244, 152,18 
8,132,244, 255, 136,170,170, 34,255,0,9,2,0,7,8,19.36,41,42,0,8,248,8, 200,36, 148,84 
384, 148,36, 200,16,224.0,0,42,41,56.19,8,7,0,0 
9830 DATA 60,255, 66,66,66,68,255,181,187,1681,175,207,126,58,66,1978 
9840 DATA 9,0,0,255,255,255, 129.255 
9050 RETURN 
9100 REM array of maze 
91@i REM at denotes exits 
9102 REM r denotes subroutines 
9110 DIM v(S): DIM a(34): DIM ci34): DIM at(30,4): DIM © (50) 
9120 RESTORE 913@: FOR e=i TO 30: READ at(e): NEXT e& 
9130 DATA "23", "234! . 4 123", "4 
"MID" "1254 12" 2" Ms2q" lag 
9135 LET pos=8000 
914@ FOR e=1 TO 3@: LET r(e)=pos: LET pos=post+25: IF pos=825@ THEN LET pos=8a00 
9150 NEXT © 
9160 RESTORE 917@: LET aa=.125: LET bb=.25: LET cc=.5: LET dd=5S: LET ee=7: FOR © 
=1 TO 34: READ afe),c(e): NEXT & 
9170 DATA cc,ee,cc,ee.2a,22,43,80, 28,28, 88.26,bb,ee,b5,2,aa,e8, aa, 28, aa, 22, aa, ee 
| \bb,9,bb,ee,bb,ee,bb.dd.cc.dd.cc,9,cc,dd.aa,dd.aa,dd,as,dd,ea,dd,bb,dd,bb,2.aa,d | 
d,aa,dd,aa,dd,aa,dd,bb,dd,bb,2,bb,4,bb,dd.1.ee 
RETURN 
REM initialise 
GO SUB 952@@ 
POKE 23658,8 
GO SUB 9900 
GN SUB 9190 
LET ti=@: LET obj=@: LET k=O: LET iné=5: LET room=1é: LET lives: 
FOR e=1 T0 5 
Tov Ce {RNDS3C)312 "EGR o=taF 2 IF vledev(s) THEN 90 T9 9245 
NEXT s 
NEXT e& 
GO SUB 1002 
LET x=1@: LET y=10 
RETURN 
REM update lives 
LET lives=lives-1 
IF lives=@ THEN 650 TO 9409 
LET x=1@: LET y=1@: GO SUB 1000 
GO TO 20 
REM new game | 
CLS : PRINT AT 10,5;"Press “S’ for a rew game"zAT 14,5;"You collected "sobj 
3" objects";AT 16,5;"You lasted "sti;" time units’ 
9420 FOR e=1 TG 34: BEEF a(e) IF CODE INKEY$=83 THEN RUN 
9430 NEXT e 
9450 GO TO 9420 
9502 REM me sound 
| 9520 RESTORE 953@: FOR q=42500 TO 42520: READ POKE q,w: NEXT q 
| 9530 DATA 33,50,0,17,125,0,6, 48,229,215, 197,205, 181,5, 193,209, 225,35, 16,244,201 
9540 RETURN 
9600 REM game completed 
9604 CLS : PRINT AT 4,2;"Congratulations you have been";AT 6,2;"saved f 
ful fate by":AT 8,2;"collecting the five gold bars.";AT 10, 
me units";AT 16,10; "WELL DONE": PAUSE @ 
9605 PRINT AT 12,7;"Fress any key" 
9610 POKE 42501,45: POKE 42504,5: POKE 42507.120 


| 962@ RANDOMIZE USR 42590 


| 9630 IF INKEY$<>"" THEN GO TO 9400 


==LOST 


Take @ journey through 
hyperspace and search out new 
civilisations who will sustain 
you, in this game for the 48K 
Spectrum. 

Your mothship has suffered 
damaging attacks from hostile 
forces. You have been 
dispatched on a mission to a 
distant planet many light years 
away. 

En route, you meet_many 
hazards which could foil your 
plans. Blue aliens will try to 
impede your progress: shoot 
them down and. you'll gain 
extra points. Yellow asteroids 
also pose a danger — if you 
can destroy them, bonus points 
will be yours. 

But that’s child's play in 
comparison with force field 
walls which will block your 
path, and red asteroids, If you 
hit the red asteroids with your 
lasers, you lose a life. 

As you go, you can pick up 
extra lives and lasers. Take 
your courage with you on your 
venture through darkest space 
— you'll need it! 


How it works 
2.15 set up variables: 
55-300. main loop 
2000-2490 explosion routine 
2500-2800 introduction screens 
3000-3090 firing routine 
4000-4010 set up force field 

walls 

5000-5040 draw mothership 
6000-6010 hyperspace routine 
7000-7690 hall of fame 
8000-8080 instructions 
8500-8580 redefines keys 
data for character 


IN SPACE 


2X81/SPECTRUM PROGRAM: 


your 


o 


2X81 listing 


Use your computer to help you 
with your maths homework. 
All you have to do is specify a 
mathematical function and the 
computer will draw on screen 
what the function looks like, 


whether it’s a parabola, 
straight line, or whatever. 

Up to six functions may be 
shown on screen at any one 
time. Please note that you 
cannot input x**2 for both 
versions. 

These programs are for the 
2x81 and Spectrum. Now, 
over to you to let your 
imagination show you how to 
make the best use of this 
utility. 


ths 
In shape 


Variables 

X$ x of oy 

¥6_y of ox 

B draw the axes 

u number of functions you can 
input (six) 

I$ function 

X all abscissae (-00 + 00) 

G y on screen depending on 
position of axes and the 
function I$ (f(x)) 

U_ x on screen depending on 
position of axes and x 

QW co-ordinates of = 


How it works 
2x81 

233 draw screen, position 
axes co-ordinates 

40-51 variable x8, abscissa of 
oy axis, variable y8, ordinate 
of ox axis 

53 delete all co-ordinates from 
lines 32-33 and where y of 
ox was written 

54-58. draw axes 

90-100 possible functions on 
screen 

100-110 1$ function 

111-121. delete previous data 
to enable other functions to 
be input 

130 print function 

140 possible abscissa between 
-20 and 20 

145-146 G = yonscreen, V = 
x on screen 

150 screen limits 

160-170 draw curve 

171-172 options 

180-191 choose option 

200 press K to input another 
function 

300-301 press P to restart 

400 press R to print cursor at 
20,19 


2 PRINT AT 0,0; 


1@ FOR A=1 TO 20 
20 PRINT AT A,Q;"% 
See” 
3@ NEXT A 
31 PRINT AT 21,0; 
LLLP 
32 PRINT AT 9, 1Q; "2" 
9"3AT 20,10; "-9" 
33 PRINT AT 10,10;"+@";AT 10,1 
9"3AT 10,19; "11" 
40 PRINT AT 18,22;"X DE(OY)?" 
41 INPUT X# 
5@ PRINT AT 18,22;"Y DE(OX)?" 
51 INPUT Y# 
53 PRINT AT 9,10;" "sAT 1,10 
"SAT 20,10 3AT 10,10 
3AT 10,13" T 10,19;" 
18,22; "emeeeenemsen" 
54 FOR B=1 TO 20 
5S PRINT AT 10-VAL Y#,B; 


AT 1,10;" 


"SAT 


57 NEXT B 


10-VAL Y#,215" 


6@ REM 


10@ PRINT AT 
INPUT If 
PRINT AT 
120 PRINT AT 
PRINT AT 
130 PRINT AT 


145 LET G 
146 LET V=X+VAL 
150 
2@ THEN GOTO 170 


S56 PRINT AT B,10+VAL x#; 


S58 PRINT AT 10- 
a 
"M"SAT 21,10+VAL X¥ 


908 FOR U=4 TO 18 
2,22 


20-VAL I$-VAL Y$-10 


IF G<i OR G>2@ OR V<1 OR V> 


VAL Y$,; "5"; AT 
3AT O,10+VAL x 


X$+10 
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110-160 draw curve. If curve 

5 or 16,7 then 

next x 

170-310 options: to draw more 
Curves on same screen; to 
find co-ordinates of one 
point; to quit present screen 

move cursor up, 

down, left and right, when 
0 is pressed, co-ordinates 
appear on axes 

9000-9080 UDG 


410-450 control cursor 
510-520 press 0 to print co- 

ordinates of point on axes 
540 return to menu 


Spectrum 
The program is mostly the 
same as for the ZXB1, except 
for some improvements. 

1_go to 9000 to set up UDG 


160 PRINT AT G,V3"+" 
170 NEXT Xx 

171 PRINT AT 19,24; "PLUS=+ 
8,24;" 
172 PRINT AT 20,245 "RUN=P" 

180 IF INKEY$="K" THEN GOTO 200 


3AT 


181 IF INKEY$= THEN GOTO 480 
190 IF INKEY$= THEN GOTO 300 
191 GOTO 18a 

208 NEXT U 

30@ CLS 

301 RUN 

400 LET Q=20 

401 LET W=19 

410 IF INKEY$="5" THEN LET W=W- 
1 

411 IF INKEY$= THEN PRINT AT 
Gwe" 

420 IF INKEY$="6" THEN LET Q=0+ 
1 

421 IF INKEY$="6" THEN PRINT AT 
o-1,4;" 

430 IF INKEY$="7" THEN LET Q=Q- 

THEN PRINT AT 

Ott," " 

432 IF INKEY$="@" THEN GOTO S10 
440 IF INKEY$="8" THEN LET W=W+ 
1 

441 IF INKEY$="8" THEN PRINT AT 


Q,W-1;" " 

442 IF Q<1 THEN LET Q=1 
443 IF W>19 THEN LET w=19 
444 IF W<1 THEN LET W=1 
449 IF @>2@ THEN LET 
450 PRINT AT Q,W;"< 
5@2 GOTO 410 

51@ PRINT AT Q,10+VAL X#;ABS (1 
@-vaAL Y$-@) 

511 LET O=ABS (-VAL X#+W-11) 
520 PRINT AT 10-VAL Y$,W-1;0;AT 
Q,Ws"  "3AT Q,W-1; "a" 

54@ GOTO 171 


2ZX81/SPECTRUM PROGRAM 


If you've always been abysmal 
at maths, don’t despair — 
these programs by Guillaume 
Thibaudeau could give you a 
helping hand and restore your 
flagging interest 
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GO SUB 9000 


PRINT AT @,@;a#: FOR a=1 TO 20: PRINT AT a,@;b#: NEXT a: PRINT AT 21 
PRINT AT 10,10;"@";AT 1,10;"9";AT 20,10;"-9"ZAT 10,1; "-9";AT 10,19; "11" 
PRINT AT 18,22;"x of (oy)?": INPUT x$: PRINT AT 18,22;"y of (ox)?": INPUT y 


PRINT AT 1,103" "3AT 20,10;"  "sAT 18,10;" “SAT 10,13" "SAT 10,19 


"SAT 18,223" 


40 
SO 


100 
110 
120 
130 
140 
150 
160 
170 
180 
183 
185 
195, 
200 
300 
310 
400 
A1O 
420 
430 
432 
440 
450 


FOR b=7 TO 167: PLOT b,8.5*(1@+VAL y$): PLOT 8.5*(10+VAL x#),b: NEXT b 
PRINT AT 11-VAL y#,@;"—";AT 1O-VAL y$,21;"+"ZAT O,1O+VAL x$;"+"ZAT 21, 10+VA 


FOR u=4 TO 10 

IF u=10 THEN PRINT “sorry,that’s too much" 

stor 

PRINT? AT 2,225 "F (x) =" INPUT if 

INPUT “ink? (@->6)";ink 

IF ink<@ OR ink>6 THEN GO TO 72 

PRINT AT 18,24;"";AT 19,24; "";AT 20,24: 

PRINT AT 2,27;"";AT u,22; INK inksi¥ 

REM —— an nnanaa 

FOR x=-167 TO 167 

LET g=8.5*(VAL i#)/8.5+(VAL y$+10)*8.5 

LET v=8.5# (x) /8.5+ (1O+VAL x#)*8.5 

IF g<8.5 OR g>147 OR v<8.5 OR v>167 THEN GO TO 160 
INK ink: PLOT v,g 

NEXT x 

INK @: PRINT AT 19,24; "“more=m";AT 18,24; "<==r";AT 20,24; "exit=p" 
IF INKEY#="m" THEN GO TO 200 

IF INKEY$="r" THEN GO TO 420 

IF INKEY#="p" THEN GO TO 300 

Go TO 180 

NEXT uw 

cLs 

RUN 

LET q=20: LET 

IF INKEY$="5" LET wew-. 1: PRINT AT qywtis" 

IF "en LET q=q+.1: PRINT AT q-1,w3" 

IF LET q=q-.1: PRINT AT q+i,w3" 

IF Go TO S10 

IF LET wew+.i: PRINT AT qyw-i3" 

IF qéi THEN LET q=1: IF w>19 THEN LET w=19: IF w<1 THEN LET w=i: IF q>2Q TH 


EN LET q=20 


460 
500 
S10 
520 
540 
27000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
908O 
9098 


PRINT AT qyws"<=" 

GO TO 410 

PRINT AT q,10+VAL x#;INT ABS (1@-VAL y#-q) 
PRINT AT 10-VAL y#,w-13INT ABS (-VAL x#+w-11);AT qywi" "3AT qyw-ls 
GO TO 170 

POKE USR "+1,BIN 90200000 

POKE USR aae00000 

POKE USR 00011100 

POKE USR ’ 20100010 

POKE USR: 00190010 

POKE USR “a"+6,BIN 00811100 

POKE USR: "+7,BIN 80000000 

POKE USR “a"+8,BIN 08000000 

RETURN 

SAVE “geom" LINE 1 
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Bewarehouse 
48K £5.95 


Positive image, 7 James St, 
Brigeton, Glasgow 


‘An enjoyable game which you'll 
want to play again and again. 
Bewarehouse plays a tune when 
loaded, with Welcome flashing 
across’ the colourful loading 
screen. A ghost rushes across 
next screen top introducing the 
‘complete instructions. 

The object is to get as many 
men as possible across the 
warehouse floor and up the 
ladder to safety. But the building 
is haunted and the ghosts don’t 
like intruders, so they roll barrels, 
‘and throw boxes at them — with 
more on each of the 12 levels. 
Ghosts appear at higher levels to 


chase or obstruct intruders. 

Your energy, shown screen 
top, is limited and drains away 
faster when you jump to catch 
the red pipe in order to avoid the 
barrels. At screen bottom are 
lives left out of five and current 
score. A satisfying “bop” noise 
accompanies being hit by a box, 
which moves from side to side 
when falling down towards you, 
and the figure revolves when hit 
by a barrel. 

‘When no lives are left there is 
2 Hall of Fame, offer of another 


game, instructions or quit. T.W. 
instructions 80% 
playability 80% 
graphics 70% 
value for money 5% 
kkk 


Les Flics 
48K £6.95 


PSS, 452 Stoney Stanton Rd, 
Coventry CV6 SDE 


One side of the cassette loads for 
keyboard and the other for 
Kempston Joystick. A printed 
instruction booklet is included. 
The game starts straightaway 
with a town plan with nine 
buildings, parks, two patrolling 
police cars and the pink creature 
soo With a tail 

Les Flics, under ze commant 
ov Unspecteur Cleudeau of ze 
Sureté, neu eggsactly weut jew 
eup teu — yew are geuing 
trah en steal a gem stone in 
hees care 

Also, Cleudeau has Gendarme 
Kaolin (disguised as a chet), 
trusty servant, to ‘elp hem — so 
yew foel, yew ‘ave neo chance 
tu: OF ‘ave yew? 


Go around the town, entering 
buildings whose interiors are 
platform games and pick up 
Various items, find out what they 
do, and finally get the diamond 
— ‘the Purple Puma. 

moving French police, 
hindered by the bungling 
Inspecteur Cleudeau, generously 
allow you three attempts at 
controlling that pink character — 
before failure leads to the 
Bastille. 

From the moment the French 
tune announces Game Loaded 
‘you need all your wits about you 
to navigate narrow roads, evade 
Les Flies and find how each item 
helps. you on your colourful 


quest. TW. 
instructions 75% 
playability 85% 
graphics 80% 
value for money 80% 
kkk 


Jackpot 
48K £5.50 


Michael Horgan, Felix Hse, 22 
Percy Rd, Isleworth 


Only available through mail 
order, this fruit machine 
simulation in BASIC is similar to 
many listed in magazines. 
However, it saves time to have 
‘one on cassette if — like me — 
you're lazy and enjoy gambling 
with pretend money. 

‘Some nice features — so often 
missed by programmers — are a 
redefined character set, sounds 
‘announcing loading started and 
music when complete, Unlike @ 
teal machine the symbols do not 
move down in sequence, but are 
‘completely random — ‘so you 
can't cheat! 

‘A. very colourful 


loading 


screen gives way to complete 
instructions spread over two. 
screens, with the opportunity to 
ZX print the list of payouts. 
There are hold/cancel and 
gamble/collect facilities, full use 
‘of sound with @ jackpot tune, 
nine skill levels, a 27 ways to win 
feature, entering of name, score 
rating comments and high score 
win. You start with £1.90 and 
take your chance! 

Even though it’s not unique, | 
found it fun and quite addictive. | 
lost sll my cash in hand at one 
point, and was told: “You're 


skint” — how true! TW. 
instructions 70% 
playability 70% 
graphics 60% 
value for money 65% 
kk * 


Quest for Eternity 
48K £7.99 


APS, No. 1, Golden Square, 
London W1R 3AB. 


This is an intelligence test to 
prove your suitability to become 
Master of Eternity. You are 
deposited inside a: non-function- 
ing spaceship and left to find the 
bits to make it work, find a 
teleportal booth on a. distant 
planet and return to the Chamber 
of Creation. 

is an all text adventure, 
written in BASIC, but 
surprisingly fast even so. It has a 
‘simple input interpreter, allowing 
two word verb-noun commands, 
‘and abbreviations for directions. 
‘The usual save to tape facilities 
‘are available. | must admit to not 
liking the colour scheme for the 


screen, but perhaps that’s just 
personal. The descriptions of 
locations, important in creating 
atmosphere, are quite effective. 

Try as | may, | can’t got this 
pesky spaceship to work! In fact, 
| can't even get my spacesuit on, 
V've pressed buttons, been 
suffocated, tried to open a 
packing case with the laser knife 
= all to no avail. | even tried to 
go to sleep but my Spectrum 
would’ let mel 

If you like the idea of the plot, 
‘and you have a few hours to 
spend, this may be for you, D.M. 


instructions 95% 
playability 85% 
graphics N/A 
value for money 65% 
wk * 


Invasion 
48K £6.99 


APS, No. 1, Golden Squé 
London W1R 3AB 


“If you don't want an 
intellectually challenging 
strategic wargame, put the tape 
back on the shelf!” reads the 
Diu. A bit of an overstatement, 
feel. 


Basically this is a computer 
board game in which you 
command eight armies 
represented by tanks on a 
numbered grid. Your opponents 
‘pear from the north. You have 
the option to reinforce, move or 
decrease the strength of an army 
in each tum. Resources are 
limited: by the number of cities 
you control. Having deployed 
your forces, you attack your 


enemies and push them back. 
Deploy them well and you win, 
but over stretch yourself or fail to 
reinforce soon enough and... 
‘The game is written in BASIC 
and is very slow in deciding what 
has happened during a battle. 
Unfortunately you see and hear 
nothing of it. Whilst the screen 
presentation is undeniably clever 
it just doesn't measure up to the 
competition from machine coded 


games using sprites. Similarly, 
warlike sound effects would 
have livened the proceedings up. 


DM. 
instructions 95% 
playability 60% 
graphics 75% 
value for money 70% 
kk 


Hit the jackpot 
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SPECTRUM PROGRAM 


How's your memory? This 
game will test your powers of 
logic and perception. Can you 
remember sequences of 
colours and notes? Try this, 
and you'll soon find out. 

The game starts when the 
computer prints a square of a 
certain colour, and plays a note 
to go with it. You must then 
copy it, Each time, one more 
‘square is added to a maximum 
of 30 squares, which are 
displayed for you in rapid 
succession. 

You can give yourself a pat 
on the back if you manage to 
remember all 30. Either you 
have a fantastic memory for 
colours and an excellent 
perception of sound — or else 
you've cheated. 


How it works 
10-70 set up variables and skill 
level 
100-210 set up arrays a, b and 


c 

300-360 draw game 

400 start of main loop 

500-560 computer plays 

700-760. your turn to copy 

900 end of main loop 

1000-1060 computer checks 
for correct input, ends 
‘game if wrong 

2000-2010 clear colours 

7000-7100 instructions 


Variables 
DIM a vertical position 
DIM b horizontal position 
DIM ¢ ink colour 
as 
bS level 
skill skill level 
nv main loop 
g mini loop 
f general purpose loop 


EGHOMOUR 


COMPUTERS TIHOUGHTS)? 


1 REM Kopycat By A.G.Bird. 
5 POKE 23689,30: GO SUB 7000 
10 DIM a(3@. DIM b(3@): DIM c(3@) 
20 LET a$="KOPYCAT BY A G BIRD": LET b$="LEVEL” 
3Q BORDER @: PAPER @: CLS 
40 FOR f=7 TO 25: PRINT AT @,f; PAPER RND*4+1; INK 9;a$(f-6): 
f 
5 INPUT “Skill Level 1, 2, 4 or 52 kill 
6@ IF skill<1 OR skill>S THEN BEEP .5,@: GO TO 20 
7@ BORDER 7: PAPER 7: CLS 
99 REM Set up arrays 
188 FOR TO 4: LET a(f) NEXT f 
110 FOR LET a(f) NEXT f 
128 FOR LET a(f> NEXT 
130 FOR LET a(f)=13: NEXT f 
148 FOR LET a(#)=17: NEXT f 
150 FOR 25 STEP 6: LET b(F NEXT f 
168 FOR 26 STEP 6: LET b(F NEXT 
170 FOR 27 STEP 6: LET b(f 2: NEXT # 


BEEP .@2,f: NEXT 


Page fourteen ZX User, a free maga: 


with Home Computing Weekly 31 July 1984 


SS ae SPECTRUM PROGRAM 


4 TO 28 STEP 6: LET b(f 
S TO 29 STEP 6: LET b(f 
20@ FOR f=6 TO 3@ STEP 6: LET b(f)=24: NEXTF 

210 FOR TO 3@: LET c(#)=INT (RND*(skill+i))+1: NEXT f 
299 REM Draw game 

3@@ FOR f=1 TO 19: PRINT AT #,1; INK #/4;a$(#): NEXT f 

310 FOR f=12 TO 172 STEP 32: PLOT 28,f: DRAW 192,0: NEXT f 
320 FOR f=28 TO 220 STEP 32: PLOT £,12: DRAW @,160: NEXT f 
33@ FOR f=1 TO 2*skill+1 STEP 2: PRINT AT #,293 INK £/2; "fm 


180 FOR 
19@ FOR 


INK @;£/2+.5: NE 


Sle 

34@ FOR #=13 TO 17: PRINT AT #,29;b$(#-12): NEXT 

35@ PRINT AT 19,29; INVERSE 1;skill 

36@ FOR f=1 TO 20@: NEXT f 

399 REM Main loop 

400 FOR n=1 TO 30 

410 GO SUB 2000 

499 REM Computers loop 

SQ FOR g=1 TO n 

51 PRINT AT a(g),b(g)3 INK cg); "SENN" SAT a(g)+1,b(g) ; "SMM" ;AT a(g)+2,b(g) 5 "Bt 
nant 

520 BEEP 1-(n/35) ,c(g)*3+5 

53 NEXT g 

540 FOR f=1 TO 200: NEXT f 

55@ GO SUB 2000 

560 FOR f=1 TO 2: FOR h=@ TO 6: PRINT AT 21,3; INK h; PAPER 6-h/2;"YOUR 
GO NOW“: NEXT hz: NEXT £ 
699 REM loop for your go 

700 FOR g=i TO n 

710 IF INKEY$="" THEN GO TO 710 
720 GO SUB 1000 

73@ PRINT AT a(g),b(g)3; INK c(g); 
oe 


T a(g)+1,b(g)5 


3AT alg) +2,b(g)3 


740 BEEP .5,c(g)*3+5 
75 NEXT g 

760 FOR f=1 TO 200: NEXT 

90 NEXT n 

999 REM Computer checks input 

1000 PRINT AT 21,3;" . 

1@1@ IF PEEK 23560=48+c(g) THEN RETURN 

1020 FOR #=@ TO 7: BORDER #: BEEP .1,30-f*7: BEEP .1,40-f*7: NEXT f 


1038 PRINT AT 21,0; INK 2; FLASH 1; WRONG “: BEEP 5,-4 
) 

1040 BORDER 5: PAPER CLS : PRINT AT 8,3: OuR SCORE O AT 11,53" 
SKILL LEVEL*;AT 14,9;skill;" WAS "3; PAPER &;n-1 

1@5@ PRINT AT 21,3;"P RESS ANY KEY." 

1068 PAUSE @: GO TO 10 

1999 REM Clear screen routine 

2000 FOR f=1 TO n: PRINT AT a(f),b(f)3" = "3AT alf)+i,b(f)3" — "ZAT alf)+2,b(F); 


a) NEXT $F 

2018 RETURN 

6999 REM Instructions 

7@0® BORDER 4: PAPER 4: INK @: CLS 

7@1@ PRINT “THE IDEA OF THIS GAME IS TO COPY"’‘"THE SEQUENCE OF COLOURS SHOWN TO 


“"*"YQU BY THE COMPUTER.THIS IS DONE"’’"BY PRESSING THE APPROPRIATE KEYS" ’ ‘"WHEN 
IT IS YOUR GO. 

7020 FOR TO 680: NEXT 

7@3Q FOR @ TO 21: PRINT AT #,5; PAPER @;" ": NEXT #: REM 


(21 spaces) 
7@4@ PRINT AT 11,6; PAPER @; INK 6;"ZX Spectrum" 
7050 FOR f=2 TO 12 STEP 2: PRINT AT 14,#+4; PAPER £/2; INK 93#/! 
EXT f 
7@6@ FOR f=18 TO 24 STEP PRINT AT 14,#; PAPER 13" "z NEXT £ 

707 FOR TO 23 STEP 2: PRINT AT 16,#; PAPER 13" “;AT 18,f+1;" "sAT 20, 
NEXT 

7@8@ PRINT AT 20,6; PAPER 13" ";AT 20,24;" " 

7090 FOR f=1 TO 5: FOR g=-3@ TO 30 STEP 5: BEEP .@1,g+ 
71@@ PRINT AT 12,28;"HIT";AT 14,28; "ANY";AT 16,283 "KEY 


AT 12,5; “ 
BEEP .5,#*2: N 


NEXT g: NEXT f 
PAUSE @: RETURN 


On nt eee SO 
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Bismark gi with, ships’ positions fisted 
co-ordinates. Each turn you 
48K £6.99 gue movement orders, to 12 
‘APS, No. 1, Golden Square, n2val groups — one moves 3, 
London WIR 3AB the others 2. Then you'll be told 
if your groups have sighted the 
With weather worsening, you Bismark. In fair and good 
leave behind the wreck of HMMS Weather you'll be asked if you 
Hood. and, witha huge and wish to fly airstrikes, which, if 
powerful fleet of battle groups, they locate her, will attack. 
your aim is to find and destroy _ Forces in the same area can 
Yhe Bismark before she reaches attack her, and if stronger will 
the convoy routes. win. Bismark fires first and 
‘Complete instructions appear combat can last an unlimited 
after the program has losded, number of rounds, until she is 
ath the game starting at 0600 SUNK OF you quit. A score up to 
hours on 24th May — gach turn 100isgivenattheend, —T.W. 
represents six hours. You have 
13 turns to find and destroy the instructions: 80% 
battleship before your forces playability 75% 
must return home to refuel. graphics 40% 
Bismark has strength 30 while value for money 75% 
your total strength is 179. 
The search takes place ona ® 
Factory Breakout _ here five auto inspectors try 10 
squash him, while @ canary flies 5 
48K £5.50 Up to kill him. "Y Kosmic Kanga clouds, bombs, fire engines, 
Poppy Soft, The Close, Com- _He enters the lift room, where 48K £5.95 birds and aeroplanes, collecting 
mon, Rd, ‘Headley, Newbury green lifts are ready to suck him é treasure and points a8 he moves. 
Borks Up to any level he wants. He | | Micromania, 14 Lower Hill Road, The last four items are deadly but 
must visit all six levels, fall Epsom, Surrey KT19 BLT can be removed by Kenga 
‘A fascinating game of skill and through 12 doors, changing their aro DOr oves apie 
speed which “exploits all the colour to red, then blue — which | | This colourful,  multiser He visits the desert, ocean, 
programmer's skille in graphics, obliterates them — and evading | | arcade standard game kept two Atlantis, the beach, country, city 
Coe of colour, sound’ and alien monsters. Zirky can open | | young visitors in stitches for a pnd, three platform games, 
animation. four force fields on the levels to whole evening as they tried to _Defore going to the Moon and 

‘Screen top has score, levels help him obliterate them get Kosmic Kanga through 11 finally his ship. 
aipha to epsilon andiivesieft out Zitky then has to discover the | | screens to his spaceship, to ,_¥04 have four lives, shown at 
Gf three "On screen ‘one Zirky, factory key to reach the last | | allow him to return to his home Screen bottom with your score 
the robot egg-capsule, screen — which is more than | planet. ‘and top score. Bonus points are 
surrounded by the self-destruct have done! TW. ‘Compatible with AGF, Protek, _ 2d<ed for each screen completed 
micron rays. Only you can rotat Kempston and Interface 2 4 key responso is very 
him, shooting them with a short 100% | | joystick interfaces, this program 9°04: TW. 
range laser” until an energy 100% makes full use of ail the potential 
Column reaches him from below 100% of the Spectrum. Use of colour instructions 70% 
‘and transports him to screen two 100% and sound is excellent and the Pravanilty 6% 
on a conveyor belt. Here Zirky animated graphics are superb. ; 
must croes the perilous rejection wk ke we & The gotions soreen leeds on to value for money 90% 
line — now out of control — the Airport, where Kanga 

ounces his way over buildings, oO 
— —t 
Sam Safety Leta oer jeer Automania tyres he, moves into the store 
inter pr u room, climt 

48K £7.95 wats coraietal 48K £6.95 the "si pices, fom vous 
APS, No. 1, Golden Square, __, Perhaps the best feature is the Mikro-Gen, 44 The Broadway, Platforms which are none too 
London W1R'3AB ability to design your own map Bracknell, Berks safe and have gaps requiring 
and name the streets after ones jumping. Each new car has its 
In this package from Computer. if, Your locality. This, together Sub-titied Manic Mechanic, this Parts coloured differently in a 
tutor trol Gsstfont character, with the facility to alter the level isa must for all games players. A___ different store room and pieces 
Clever Clogs, invites you to learn OF, difficulty, makes it easy to musical tune and comic cast jist ust be placed in the correct 
the rules of road safety whilst tailor the program to the needs “decorating by Polly Filler and Positions on the cars in the 

playing a sort of maze gam and interests of any ct R Tex — introduce this whacky _3ssembly room, 

‘The maze is a series of inter- A well designed and executed game. In his flat cap, oversize Being @ wally. tools and oil 
linked, well illustrated streets Program, interesting Boots and with a beer belly, ans are dropped in his way. 
with all the features you would gf@phics “and sound, which Wally Week with three ives has Mikro-Gen will pay £100 for 
Cxpect, care, erossingy; subways combines fun and purposeful to get car parts from a store and the highest score each month — 
and 80 on. Using the cursor learning. DM. build 10 cars. 0 invest in this colourful game 
keys, you direct Sam on his jo cg The menu offers music on/off With superb graphics and a 
journey. You must look left and ‘structions, 100% (thanks!), demo mode, redefine  ™ation. TW. 
right, using defined keys to cross Plavability 100% keys and choice of Sinclair and 
safely. Every now and then a graphics 95% Kempston interfaces. The game instructions 100% 
Prizes inthe street. You value for money 90% starts inthe assombly room with Payabiity 100% 
must walk Sam up to it and tyres rolling round and car parts graphics 100% 
identify 2 r0ad sign to amas XO Kw & Gropping from ‘overheed ‘con. value for money 100% 

veyor belts. 
‘Assuming Wally jumps the * wk & 
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